System Booster/System Booster.iso/Disktools/MFS/MFS-install

Text File | 1996-09-26 | 5KB | 219 lines

(set @default-dest "")

(if (< (getversion "LIBS:version.library") (* 38 65536))
    (abort "MultiFileSystem requires Workbench 2.1 or higher")
)

(set mfs_dest "SYS:Tools/Commodities")
(if (= (exists "SYS:WBStartup/MFS") 1)
    (set mfs_dest "SYS:WBStartup")
)

(set mfs_dest
    (askdir
        (prompt "In which drawer should the MFS commodity be copied?")
        (help @askdir-help)
        (default mfs_dest)
    )
)

(copylib
    (prompt "Copying MFS commodity")
    (help @copylib-help)
    (source "Tools/Commodities/MFS")
    (dest mfs_dest)
    (infos)
    (confirm)
)

(copylib
    (prompt "Copying mfs-handler")
    (help @copylib-help)
    (source "l/mfs-handler")
    (dest "L:")
    (confirm)
)

(copylib
    (prompt "Copying MFSMount")
    (help @copylib-help)
    (source "c/MFSMount")
    (dest "C:")
    (confirm)
)

(if (= (exists "DEVS:DOSDrivers/DF0") 0)
    (makedir "DEVS:DOSDrivers/DF0"
        (prompt "Creating drawer \"DEVS:DOSDrivers/DF0\"")
        (help @makedir-help)
        (infos)
        (confirm)
    )
)

(if (= (exists "DEVS:DOSDrivers/DF0") 2)
    (
        (run "FileNote DEVS:DOSDrivers/DF0 Amiga")

        (if (= (exists "DEVS:DOSDrivers/PC0") 1)
            (
                (rename "DEVS:DOSDrivers/PC0" "DEVS:DOSDrivers/DF0/PC0"
                    (prompt "Moving PC0 to drawer \"DEVS:DOSDrivers/DF0\"")
                    (help @rename-help)
                    (confirm)
                )

                (if (= (exists "DEVS:DOSDrivers/DF0/PC0") 1)
                    (rename "DEVS:DOSDrivers/PC0.info" "DEVS:DOSDrivers/DF0/PC0.info")
                )
            )
        )

        (if (= (exists "DEVS:DOSDrivers/DF0/PC0") 1)
            (run "FileNote DEVS:DOSDrivers/DF0/PC0 MS-DOS")
            (message "\n\nPC0 not found in DEVS:DosDrivers. You'll have to move it to DEVS:DosDrivers/DF0 yourself.")
        )
    )
)

(if (getassign "DF1" "d")
    (if (= (exists "DEVS:DOSDrivers/DF1") 0)
        (makedir "DEVS:DOSDrivers/DF1"
            (prompt "Creating drawer \"DEVS:DOSDrivers/DF1\"")
            (help @makedir-help)
            (infos)
            (confirm)
        )
    )
)

(if (= (exists "DEVS:DOSDrivers/DF1") 2)
    (
        (run "FileNote DEVS:DOSDrivers/DF1 Amiga")

        (if (= (exists "DEVS:DOSDrivers/PC1") 1)
            (
                (rename "DEVS:DOSDrivers/PC1" "DEVS:DOSDrivers/DF1/PC1"
                    (prompt "Moving PC1 to drawer \"DEVS:DOSDrivers/DF1\"")
                    (help @rename-help)
                    (confirm)
                )

                (if (= (exists "DEVS:DOSDrivers/DF1/PC1") 1)
                    (rename "DEVS:DOSDrivers/PC1.info" "DEVS:DOSDrivers/DF1/PC1.info")
                )
            )
        )

        (if (= (exists "DEVS:DOSDrivers/DF1/PC1") 1)
            (run "FileNote DEVS:DOSDrivers/DF1/PC1 MS-DOS")
            (message "\n\nPC1 not found in DEVS:DosDrivers. You'll have to move it to DEVS:DosDrivers/DF1 yourself.")
        )
    )
)

(if (getassign "DF2" "d")
    (if (= (exists "DEVS:DOSDrivers/DF2") 0)
        (makedir "DEVS:DOSDrivers/DF2"
            (prompt "Creating drawer \"DEVS:DOSDrivers/DF2\"")
            (help @makedir-help)
            (infos)
            (confirm)
        )
    )
)

(if (= (exists "DEVS:DOSDrivers/DF2") 2)
    (
        (run "FileNote DEVS:DOSDrivers/DF2 Amiga")

        (if (= (exists "DEVS:DOSDrivers/PC2") 1)
            (
                (rename "DEVS:DOSDrivers/PC2" "DEVS:DOSDrivers/DF2/PC2"
                    (prompt "Moving PC2 to drawer \"DEVS:DOSDrivers/DF2\"")
                    (help @rename-help)
                    (confirm)
                )

                (if (= (exists "DEVS:DOSDrivers/DF2/PC2") 1)
                    (rename "DEVS:DOSDrivers/PC2.info" "DEVS:DOSDrivers/DF2/PC2.info")
                )
            )
        )

        (if (= (exists "DEVS:DOSDrivers/DF2/PC2") 1)
            (run "FileNote DEVS:DOSDrivers/DF2/PC2 MS-DOS")
            (message "\n\nPC2 not found in DEVS:DosDrivers. You'll have to move it to DEVS:DosDrivers/DF2 yourself.")
        )
    )
)

(if (getassign "DF3" "d")
    (if (= (exists "DEVS:DOSDrivers/DF3") 0)
        (makedir "DEVS:DOSDrivers/DF3"
            (prompt "Creating drawer \"DEVS:DOSDrivers/DF3\"")
            (help @makedir-help)
            (infos)
            (confirm)
        )
    )
)

(if (= (exists "DEVS:DOSDrivers/DF3") 2)
    (
        (run "FileNote DEVS:DOSDrivers/DF3 Amiga")

        (if (= (exists "DEVS:DOSDrivers/PC3") 1)
            (
                (rename "DEVS:DOSDrivers/PC3" "DEVS:DOSDrivers/DF3/PC3"
                    (prompt "Moving PC3 to drawer \"DEVS:DOSDrivers/DF3\"")
                    (help @rename-help)
                    (confirm)
                )

                (if (= (exists "DEVS:DOSDrivers/DF3/PC3") 1)
                    (rename "DEVS:DOSDrivers/PC3.info" "DEVS:DOSDrivers/DF3/PC3.info")
                )
            )
        )

        (if (= (exists "DEVS:DOSDrivers/DF3/PC3") 1)
            (run "FileNote DEVS:DOSDrivers/DF3/PC3 MS-DOS")
            (message "\n\nPC3 not found in DEVS:DosDrivers. You'll have to move it to DEVS:DosDrivers/DF3 yourself.")
        )
    )
)

(startup "MultiFileSystem"
    (prompt "Adding a line to S:user-startup")
    (help @startup-help)
    (command "C:MFSMount DEVS:DOSDrivers/~(#?.info)")
)

(set doit
    (askchoice
        (prompt "Do you want to install the Format and DiskCopy replacements?")
        (help @askchoice-help)
        (choices "Yes" "No")
        (default 0)
    )
)

(if (= doit 0)
    (
        (message "\n\nPlease insert the \"Amiga Workbench\" disk in DF0:")

        (run "c/mergex system/format.mergex DF0:System/Format SYS:System/Format"
            (prompt "Patching Format")
            (help @run-help)
            (confirm)
        )

        (run "c/mergex system/diskcopy.mergex DF0:System/DiskCopy SYS:System/DiskCopy"
            (prompt "Patching DiskCopy")
            (help @run-help)
            (confirm)
        )
    )
)